/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / prim / indent.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 32 30 3a 35 | 33 20 31 39 39 35 0a 3b | 14:20:5|3 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 70 72 | 69 6d 2f 69 6e 64 65 6e |/lisp/pr|im/inden|
|00000090| 74 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |t.el.;;;| emacs v|
|000000a0| 65 72 73 69 6f 6e 20 31 | 39 2e 31 33 20 58 45 6d |ersion 1|9.13 XEm|
|000000b0| 61 63 73 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |acs Luci|d..;;; b|
|000000c0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000d0| 32 2e 32 35 3b 20 31 2d | 53 65 70 2d 39 34 2e 0a |2.25; 1-|Sep-94..|
|000000e0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000f0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|00000100| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|00000110| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000120| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000130| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000140| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000150| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000160| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000170| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000180| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|00000190| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|000001a0| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 22 29 |cs-versi|on "19")|
|000001b0| 29 29 0a 20 20 20 20 28 | 65 72 72 6f 72 20 22 54 |)).    (|error "T|
|000001c0| 68 69 73 20 66 69 6c 65 | 20 77 61 73 20 63 6f 6d |his file| was com|
|000001d0| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|000001e0| 31 39 2e 22 29 29 0a 0a | 28 64 65 66 76 61 72 20 |19."))..|(defvar |
|000001f0| 69 6e 64 65 6e 74 2d 6c | 69 6e 65 2d 66 75 6e 63 |indent-l|ine-func|
|00000200| 74 69 6f 6e 20 27 69 6e | 64 65 6e 74 2d 74 6f 2d |tion 'in|dent-to-|
|00000210| 6c 65 66 74 2d 6d 61 72 | 67 69 6e 20 22 5c 0a 46 |left-mar|gin "\.F|
|00000220| 75 6e 63 74 69 6f 6e 20 | 74 6f 20 69 6e 64 65 6e |unction |to inden|
|00000230| 74 20 63 75 72 72 65 6e | 74 20 6c 69 6e 65 2e 22 |t curren|t line."|
|00000240| 29 0a 28 66 73 65 74 20 | 27 69 6e 64 65 6e 74 2d |).(fset |'indent-|
|00000250| 61 63 63 6f 72 64 69 6e | 67 2d 74 6f 2d 6d 6f 64 |accordin|g-to-mod|
|00000260| 65 20 23 5b 6e 69 6c 20 | 22 08 20 87 22 20 5b 69 |e #[nil |". ." [i|
|00000270| 6e 64 65 6e 74 2d 6c 69 | 6e 65 2d 66 75 6e 63 74 |ndent-li|ne-funct|
|00000280| 69 6f 6e 5d 20 31 20 22 | 5c 0a 49 6e 64 65 6e 74 |ion] 1 "|\.Indent|
|00000290| 20 6c 69 6e 65 20 69 6e | 20 70 72 6f 70 65 72 20 | line in| proper |
|000002a0| 77 61 79 20 66 6f 72 20 | 63 75 72 72 65 6e 74 20 |way for |current |
|000002b0| 6d 61 6a 6f 72 20 6d 6f | 64 65 2e 22 20 6e 69 6c |major mo|de." nil|
|000002c0| 5d 29 0a 28 66 73 65 74 | 20 27 69 6e 64 65 6e 74 |]).(fset| 'indent|
|000002d0| 2d 66 6f 72 2d 74 61 62 | 2d 63 6f 6d 6d 61 6e 64 |-for-tab|-command|
|000002e0| 20 23 5b 6e 69 6c 20 22 | 08 c1 3d ab 83 c2 20 87 | #[nil "|..=... .|
|000002f0| 08 20 87 22 20 5b 69 6e | 64 65 6e 74 2d 6c 69 6e |. ." [in|dent-lin|
|00000300| 65 2d 66 75 6e 63 74 69 | 6f 6e 20 69 6e 64 65 6e |e-functi|on inden|
|00000310| 74 2d 74 6f 2d 6c 65 66 | 74 2d 6d 61 72 67 69 6e |t-to-lef|t-margin|
|00000320| 20 69 6e 73 65 72 74 2d | 74 61 62 5d 20 32 20 22 | insert-|tab] 2 "|
|00000330| 5c 0a 49 6e 64 65 6e 74 | 20 6c 69 6e 65 20 69 6e |\.Indent| line in|
|00000340| 20 70 72 6f 70 65 72 20 | 77 61 79 20 66 6f 72 20 | proper |way for |
|00000350| 63 75 72 72 65 6e 74 20 | 6d 61 6a 6f 72 20 6d 6f |current |major mo|
|00000360| 64 65 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |de." nil|]).(fset|
|00000370| 20 27 69 6e 73 65 72 74 | 2d 74 61 62 20 23 5b 6e | 'insert|-tab #[n|
|00000380| 69 6c 20 22 08 ab 83 c1 | 20 88 5c 6e ab 83 c3 63 |il "....| .\n...c|
|00000390| 87 0c 69 0c a5 54 5f 6a | 87 22 20 5b 61 62 62 72 |..i..T_j|." [abbr|
|000003a0| 65 76 2d 6d 6f 64 65 20 | 65 78 70 61 6e 64 2d 61 |ev-mode |expand-a|
|000003b0| 62 62 72 65 76 20 69 6e | 64 65 6e 74 2d 74 61 62 |bbrev in|dent-tab|
|000003c0| 73 2d 6d 6f 64 65 20 39 | 20 74 61 62 2d 77 69 64 |s-mode 9| tab-wid|
|000003d0| 74 68 5d 20 33 5d 29 0a | 28 66 73 65 74 20 27 69 |th] 3]).|(fset 'i|
|000003e0| 6e 64 65 6e 74 2d 72 69 | 67 69 64 6c 79 20 23 5b |ndent-ri|gidly #[|
|000003f0| 28 73 74 61 72 74 20 65 | 6e 64 20 61 72 67 29 20 |(start e|nd arg) |
|00000400| 22 8a 08 62 88 c1 20 10 | 5c 6e 62 88 6e ac 83 c3 |"..b.. .|\nb.n...|
|00000410| 79 88 60 08 57 ab ad c4 | 20 c5 1e 06 1e 07 8a c8 |y.`.W...| .......|
|00000420| c5 77 88 6c 16 06 29 0e | 06 ac 8b c9 ca 0e 07 0e |.w.l..).|........|
|00000430| 0b 5c 5c 5d ca 5c 22 88 | 60 c8 c5 77 88 60 7c 88 |.\\].\".|`..w.`|.|
|00000440| 2a c3 79 88 aa 4e 08 c5 | 89 93 88 c5 89 16 0c 29 |*.y..N..|.......)|
|00000450| 87 22 20 5b 65 6e 64 20 | 70 6f 69 6e 74 2d 6d 61 |." [end |point-ma|
|00000460| 72 6b 65 72 20 73 74 61 | 72 74 20 31 20 63 75 72 |rker sta|rt 1 cur|
|00000470| 72 65 6e 74 2d 69 6e 64 | 65 6e 74 61 74 69 6f 6e |rent-ind|entation|
|00000480| 20 6e 69 6c 20 65 6f 6c | 2d 66 6c 61 67 20 69 6e | nil eol|-flag in|
|00000490| 64 65 6e 74 20 22 20 09 | 22 20 69 6e 64 65 6e 74 |dent " .|" indent|
|000004a0| 2d 74 6f 20 30 20 61 72 | 67 20 7a 6d 61 63 73 2d |-to 0 ar|g zmacs-|
|000004b0| 72 65 67 69 6f 6e 2d 73 | 74 61 79 73 5d 20 34 20 |region-s|tays] 4 |
|000004c0| 22 5c 0a 49 6e 64 65 6e | 74 20 61 6c 6c 20 6c 69 |"\.Inden|t all li|
|000004d0| 6e 65 73 20 73 74 61 72 | 74 69 6e 67 20 69 6e 20 |nes star|ting in |
|000004e0| 74 68 65 20 72 65 67 69 | 6f 6e 20 73 69 64 65 77 |the regi|on sidew|
|000004f0| 61 79 73 20 62 79 20 41 | 52 47 20 63 6f 6c 75 6d |ays by A|RG colum|
|00000500| 6e 73 2e 0a 43 61 6c 6c | 65 64 20 66 72 6f 6d 20 |ns..Call|ed from |
|00000510| 61 20 70 72 6f 67 72 61 | 6d 2c 20 74 61 6b 65 73 |a progra|m, takes|
|00000520| 20 74 68 72 65 65 20 61 | 72 67 75 6d 65 6e 74 73 | three a|rguments|
|00000530| 2c 20 53 54 41 52 54 2c | 20 45 4e 44 20 61 6e 64 |, START,| END and|
|00000540| 20 41 52 47 2e 22 20 22 | 72 5c 6e 70 22 5d 29 0a | ARG." "|r\np"]).|
|00000550| 28 66 73 65 74 20 27 69 | 6e 64 65 6e 74 2d 74 6f |(fset 'i|ndent-to|
|00000560| 2d 6c 65 66 74 2d 6d 61 | 72 67 69 6e 20 23 5b 6e |-left-ma|rgin #[n|
|00000570| 69 6c 20 22 c0 20 09 55 | ae 9c c2 1b 8a c4 79 88 |il ". .U|......y.|
|00000580| 60 c5 c2 77 88 60 7c 88 | 09 6a 88 60 13 29 60 0b |`..w.`|.|.j.`.)`.|
|00000590| 57 ad 82 0b 62 29 87 22 | 20 5b 63 75 72 72 65 6e |W...b)."| [curren|
|000005a0| 74 2d 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 6c 65 |t-indent|ation le|
|000005b0| 66 74 2d 6d 61 72 67 69 | 6e 20 6e 69 6c 20 65 70 |ft-margi|n nil ep|
|000005c0| 6f 73 20 30 20 22 20 09 | 22 5d 20 33 5d 29 0a 28 |os 0 " .|"] 3]).(|
|000005d0| 64 65 66 76 61 72 20 69 | 6e 64 65 6e 74 2d 72 65 |defvar i|ndent-re|
|000005e0| 67 69 6f 6e 2d 66 75 6e | 63 74 69 6f 6e 20 6e 69 |gion-fun|ction ni|
|000005f0| 6c 20 22 5c 0a 46 75 6e | 63 74 69 6f 6e 20 77 68 |l "\.Fun|ction wh|
|00000600| 69 63 68 20 69 73 20 73 | 68 6f 72 74 20 63 75 74 |ich is s|hort cut|
|00000610| 20 74 6f 20 69 6e 64 65 | 6e 74 20 72 65 67 69 6f | to inde|nt regio|
|00000620| 6e 20 75 73 69 6e 67 20 | 69 6e 64 65 6e 74 2d 61 |n using |indent-a|
|00000630| 63 63 6f 72 64 69 6e 67 | 2d 74 6f 2d 6d 6f 64 65 |ccording|-to-mode|
|00000640| 2e 0a 41 20 76 61 6c 75 | 65 20 6f 66 20 6e 69 6c |..A valu|e of nil|
|00000650| 20 6d 65 61 6e 73 20 72 | 65 61 6c 6c 79 20 72 75 | means r|eally ru|
|00000660| 6e 20 69 6e 64 65 6e 74 | 2d 61 63 63 6f 72 64 69 |n indent|-accordi|
|00000670| 6e 67 2d 74 6f 2d 6d 6f | 64 65 20 6f 6e 20 65 61 |ng-to-mo|de on ea|
|00000680| 63 68 20 6c 69 6e 65 2e | 22 29 0a 28 66 73 65 74 |ch line.|").(fset|
|00000690| 20 27 69 6e 64 65 6e 74 | 2d 72 65 67 69 6f 6e 20 | 'indent|-region |
|000006a0| 23 5b 28 73 74 61 72 74 | 20 65 6e 64 20 63 6f 6c |#[(start| end col|
|000006b0| 75 6d 6e 29 20 22 08 ac | e1 09 ab aa 8a 5c 6e 62 |umn) "..|.....\nb|
|000006c0| 88 c3 20 12 0c 62 88 c5 | 09 21 1e 06 60 5c 6e 57 |.. ..b..|.!..`\nW|
|000006d0| ad 94 c7 0e 06 21 ac 89 | 6e ab 83 6c ac 83 09 63 |.....!..|n..l...c|
|000006e0| 88 c8 79 88 aa 67 2a 87 | 0e 09 ab 86 0e 09 0c 5c |..y..g*.|.......\|
|000006f0| 6e 5c 22 87 8a 5c 6e 62 | 88 c3 20 12 0c 62 88 6e |n\"..\nb|.. ..b.n|
|00000700| ac 83 c8 79 88 60 5c 6e | 57 ab 8f 6e ab 83 6c ac |...y.`\n|W..n..l.|
|00000710| 84 0e 5c 6e 20 88 c8 79 | 88 aa 6c 5c 6e cb 89 93 |..\n ..y|..l\n...|
|00000720| 29 87 cc 08 21 10 8a 5c | 6e 62 88 c3 20 12 0c 62 |)...!..\|nb.. ..b|
|00000730| 88 6e ac 83 c8 79 88 60 | 5c 6e 57 ab 95 60 cd cb |.n...y.`|\nW..`..|
|00000740| 77 88 60 7c 88 6c ac 85 | ce 08 cf 5c 22 88 c8 79 |w.`|.l..|...\"..y|
|00000750| 88 aa 66 5c 6e cb 89 93 | 29 87 22 20 5b 63 6f 6c |..f\n...|)." [col|
|00000760| 75 6d 6e 20 66 69 6c 6c | 2d 70 72 65 66 69 78 20 |umn fill|-prefix |
|00000770| 65 6e 64 20 70 6f 69 6e | 74 2d 6d 61 72 6b 65 72 |end poin|t-marker|
|00000780| 20 73 74 61 72 74 20 72 | 65 67 65 78 70 2d 71 75 | start r|egexp-qu|
|00000790| 6f 74 65 20 72 65 67 65 | 78 70 20 6c 6f 6f 6b 69 |ote rege|xp looki|
|000007a0| 6e 67 2d 61 74 20 31 20 | 69 6e 64 65 6e 74 2d 72 |ng-at 1 |indent-r|
|000007b0| 65 67 69 6f 6e 2d 66 75 | 6e 63 74 69 6f 6e 20 69 |egion-fu|nction i|
|000007c0| 6e 64 65 6e 74 2d 6c 69 | 6e 65 2d 66 75 6e 63 74 |ndent-li|ne-funct|
|000007d0| 69 6f 6e 20 6e 69 6c 20 | 70 72 65 66 69 78 2d 6e |ion nil |prefix-n|
|000007e0| 75 6d 65 72 69 63 2d 76 | 61 6c 75 65 20 22 20 09 |umeric-v|alue " .|
|000007f0| 22 20 69 6e 64 65 6e 74 | 2d 74 6f 20 30 5d 20 33 |" indent|-to 0] 3|
|00000800| 20 22 5c 0a 49 6e 64 65 | 6e 74 20 65 61 63 68 20 | "\.Inde|nt each |
|00000810| 6e 6f 6e 62 6c 61 6e 6b | 20 6c 69 6e 65 20 69 6e |nonblank| line in|
|00000820| 20 74 68 65 20 72 65 67 | 69 6f 6e 2e 0a 57 69 74 | the reg|ion..Wit|
|00000830| 68 20 6e 6f 20 61 72 67 | 75 6d 65 6e 74 2c 20 69 |h no arg|ument, i|
|00000840| 6e 64 65 6e 74 20 65 61 | 63 68 20 6c 69 6e 65 20 |ndent ea|ch line |
|00000850| 75 73 69 6e 67 20 60 69 | 6e 64 65 6e 74 2d 61 63 |using `i|ndent-ac|
|00000860| 63 6f 72 64 69 6e 67 2d | 74 6f 2d 6d 6f 64 65 27 |cording-|to-mode'|
|00000870| 2c 0a 6f 72 20 75 73 65 | 20 60 69 6e 64 65 6e 74 |,.or use| `indent|
|00000880| 2d 72 65 67 69 6f 6e 2d | 66 75 6e 63 74 69 6f 6e |-region-|function|
|00000890| 27 20 74 6f 20 64 6f 20 | 74 68 65 20 77 68 6f 6c |' to do |the whol|
|000008a0| 65 20 72 65 67 69 6f 6e | 20 69 66 20 74 68 61 74 |e region| if that|
|000008b0| 27 73 20 6e 6f 6e 2d 6e | 69 6c 2e 0a 49 66 20 74 |'s non-n|il..If t|
|000008c0| 68 65 72 65 20 69 73 20 | 61 20 66 69 6c 6c 20 70 |here is |a fill p|
|000008d0| 72 65 66 69 78 2c 20 6d | 61 6b 65 20 65 61 63 68 |refix, m|ake each|
|000008e0| 20 6c 69 6e 65 20 73 74 | 61 72 74 20 77 69 74 68 | line st|art with|
|000008f0| 20 74 68 65 20 66 69 6c | 6c 20 70 72 65 66 69 78 | the fil|l prefix|
|00000900| 2e 0a 57 69 74 68 20 61 | 72 67 75 6d 65 6e 74 20 |..With a|rgument |
|00000910| 43 4f 4c 55 4d 4e 2c 20 | 69 6e 64 65 6e 74 20 65 |COLUMN, |indent e|
|00000920| 61 63 68 20 6c 69 6e 65 | 20 74 6f 20 74 68 61 74 |ach line| to that|
|00000930| 20 63 6f 6c 75 6d 6e 2e | 0a 43 61 6c 6c 65 64 20 | column.|.Called |
|00000940| 66 72 6f 6d 20 61 20 70 | 72 6f 67 72 61 6d 2c 20 |from a p|rogram, |
|00000950| 74 61 6b 65 73 20 74 68 | 72 65 65 20 61 72 67 73 |takes th|ree args|
|00000960| 3a 20 53 54 41 52 54 2c | 20 45 4e 44 20 61 6e 64 |: START,| END and|
|00000970| 20 43 4f 4c 55 4d 4e 2e | 22 20 22 72 5c 6e 50 22 | COLUMN.|" "r\nP"|
|00000980| 5d 29 0a 28 66 73 65 74 | 20 27 69 6e 64 65 6e 74 |]).(fset| 'indent|
|00000990| 2d 72 65 6c 61 74 69 76 | 65 2d 6d 61 79 62 65 20 |-relativ|e-maybe |
|000009a0| 23 5b 6e 69 6c 20 22 c0 | c1 21 87 22 20 5b 69 6e |#[nil ".|.!." [in|
|000009b0| 64 65 6e 74 2d 72 65 6c | 61 74 69 76 65 20 74 5d |dent-rel|ative t]|
|000009c0| 20 32 20 22 5c 0a 49 6e | 64 65 6e 74 20 61 20 6e | 2 "\.In|dent a n|
|000009d0| 65 77 20 6c 69 6e 65 20 | 6c 69 6b 65 20 70 72 65 |ew line |like pre|
|000009e0| 76 69 6f 75 73 20 6e 6f | 6e 62 6c 61 6e 6b 20 6c |vious no|nblank l|
|000009f0| 69 6e 65 2e 22 20 6e 69 | 6c 5d 29 0a 28 66 73 65 |ine." ni|l]).(fse|
|00000a00| 74 20 27 69 6e 64 65 6e | 74 2d 72 65 6c 61 74 69 |t 'inden|t-relati|
|00000a10| 76 65 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ve #[(&o|ptional |
|00000a20| 75 6e 69 6e 64 65 6e 74 | 65 64 2d 6f 6b 29 20 22 |unindent|ed-ok) "|
|00000a30| 08 ab 83 c1 20 88 69 c2 | 1b 1c 8a c5 79 88 c6 c7 |.... .i.|....y...|
|00000a40| c2 c8 23 ab b1 8a c9 79 | 88 60 29 1e 5c 6e cb 0c |..#....y|.`).\n..|
|00000a50| 21 88 69 0c 56 ab 84 cc | c9 21 88 cd ce 21 ac 89 |!.i.V...|.!...!..|
|00000a60| 0e 0f ac 85 d0 0e 5c 6e | 77 88 d1 0e 5c 6e 77 88 |......\n|w...\nw.|
|00000a70| 60 0e 5c 6e 55 ac 82 69 | 13 29 29 0b ab a3 d2 20 |`.\nU..i|.)).... |
|00000a80| 1e 13 60 d1 c2 78 88 60 | 7c 88 d4 0b c5 5c 22 88 |..`..x.`||....\".|
|00000a90| 0e 13 60 56 ab 84 0e 13 | 62 88 0e 13 c2 89 93 29 |..`V....|b......)|
|00000aa0| aa 82 d5 20 2a 87 22 20 | 5b 61 62 62 72 65 76 2d |... *." |[abbrev-|
|00000ab0| 6d 6f 64 65 20 65 78 70 | 61 6e 64 2d 61 62 62 72 |mode exp|and-abbr|
|00000ac0| 65 76 20 6e 69 6c 20 69 | 6e 64 65 6e 74 20 73 74 |ev nil i|ndent st|
|00000ad0| 61 72 74 2d 63 6f 6c 75 | 6d 6e 20 30 20 72 65 2d |art-colu|mn 0 re-|
|00000ae0| 73 65 61 72 63 68 2d 62 | 61 63 6b 77 61 72 64 20 |search-b|ackward |
|00000af0| 22 5e 5b 5e 5c 6e 5d 22 | 20 74 20 31 20 65 6e 64 |"^[^\n]"| t 1 end|
|00000b00| 20 6d 6f 76 65 2d 74 6f | 2d 63 6f 6c 75 6d 6e 20 | move-to|-column |
|00000b10| 62 61 63 6b 77 61 72 64 | 2d 63 68 61 72 20 6c 6f |backward|-char lo|
|00000b20| 6f 6b 69 6e 67 2d 61 74 | 20 22 5b 20 09 5d 22 20 |oking-at| "[ .]" |
|00000b30| 75 6e 69 6e 64 65 6e 74 | 65 64 2d 6f 6b 20 22 5e |unindent|ed-ok "^|
|00000b40| 20 09 22 20 22 20 09 22 | 20 70 6f 69 6e 74 2d 6d | ." " ."| point-m|
|00000b50| 61 72 6b 65 72 20 6f 70 | 6f 69 6e 74 20 69 6e 64 |arker op|oint ind|
|00000b60| 65 6e 74 2d 74 6f 20 74 | 61 62 2d 74 6f 2d 74 61 |ent-to t|ab-to-ta|
|00000b70| 62 2d 73 74 6f 70 5d 20 | 34 20 22 5c 0a 53 70 61 |b-stop] |4 "\.Spa|
|00000b80| 63 65 20 6f 75 74 20 74 | 6f 20 75 6e 64 65 72 20 |ce out t|o under |
|00000b90| 6e 65 78 74 20 69 6e 64 | 65 6e 74 20 70 6f 69 6e |next ind|ent poin|
|00000ba0| 74 20 69 6e 20 70 72 65 | 76 69 6f 75 73 20 6e 6f |t in pre|vious no|
|00000bb0| 6e 62 6c 61 6e 6b 20 6c | 69 6e 65 2e 0a 41 6e 20 |nblank l|ine..An |
|00000bc0| 69 6e 64 65 6e 74 20 70 | 6f 69 6e 74 20 69 73 20 |indent p|oint is |
|00000bd0| 61 20 6e 6f 6e 2d 77 68 | 69 74 65 73 70 61 63 65 |a non-wh|itespace|
|00000be0| 20 63 68 61 72 61 63 74 | 65 72 20 66 6f 6c 6c 6f | charact|er follo|
|00000bf0| 77 69 6e 67 20 77 68 69 | 74 65 73 70 61 63 65 2e |wing whi|tespace.|
|00000c00| 0a 49 66 20 74 68 65 20 | 70 72 65 76 69 6f 75 73 |.If the |previous|
|00000c10| 20 6e 6f 6e 62 6c 61 6e | 6b 20 6c 69 6e 65 20 68 | nonblan|k line h|
|00000c20| 61 73 20 6e 6f 20 69 6e | 64 65 6e 74 20 70 6f 69 |as no in|dent poi|
|00000c30| 6e 74 73 20 62 65 79 6f | 6e 64 0a 74 68 65 20 63 |nts beyo|nd.the c|
|00000c40| 6f 6c 75 6d 6e 20 70 6f | 69 6e 74 20 73 74 61 72 |olumn po|int star|
|00000c50| 74 73 20 61 74 2c 20 60 | 74 61 62 2d 74 6f 2d 74 |ts at, `|tab-to-t|
|00000c60| 61 62 2d 73 74 6f 70 27 | 20 69 73 20 64 6f 6e 65 |ab-stop'| is done|
|00000c70| 20 69 6e 73 74 65 61 64 | 2e 22 20 22 50 22 5d 29 | instead|." "P"])|
|00000c80| 0a 28 64 65 66 76 61 72 | 20 74 61 62 2d 73 74 6f |.(defvar| tab-sto|
|00000c90| 70 2d 6c 69 73 74 20 27 | 28 38 20 31 36 20 32 34 |p-list '|(8 16 24|
|00000ca0| 20 33 32 20 34 30 20 34 | 38 20 35 36 20 36 34 20 | 32 40 4|8 56 64 |
|00000cb0| 37 32 20 38 30 20 38 38 | 20 39 36 20 31 30 34 20 |72 80 88| 96 104 |
|00000cc0| 31 31 32 20 31 32 30 29 | 20 22 5c 0a 2a 4c 69 73 |112 120)| "\.*Lis|
|00000cd0| 74 20 6f 66 20 74 61 62 | 20 73 74 6f 70 20 70 6f |t of tab| stop po|
|00000ce0| 73 69 74 69 6f 6e 73 20 | 75 73 65 64 20 62 79 20 |sitions |used by |
|00000cf0| 60 74 61 62 2d 74 6f 2d | 74 61 62 2d 73 74 6f 70 |`tab-to-|tab-stop|
|00000d00| 73 27 2e 0a 54 68 69 73 | 20 73 68 6f 75 6c 64 20 |s'..This| should |
|00000d10| 62 65 20 61 20 6c 69 73 | 74 20 6f 66 20 69 6e 74 |be a lis|t of int|
|00000d20| 65 67 65 72 73 2c 20 6f | 72 64 65 72 65 64 20 66 |egers, o|rdered f|
|00000d30| 72 6f 6d 20 73 6d 61 6c | 6c 65 73 74 20 74 6f 20 |rom smal|lest to |
|00000d40| 6c 61 72 67 65 73 74 2e | 22 29 0a 28 64 65 66 76 |largest.|").(defv|
|00000d50| 61 72 20 65 64 69 74 2d | 74 61 62 2d 73 74 6f 70 |ar edit-|tab-stop|
|00000d60| 73 2d 6d 61 70 20 6e 69 | 6c 20 22 5c 0a 4b 65 79 |s-map ni|l "\.Key|
|00000d70| 6d 61 70 20 75 73 65 64 | 20 69 6e 20 60 65 64 69 |map used| in `edi|
|00000d80| 74 2d 74 61 62 2d 73 74 | 6f 70 73 27 2e 22 29 0a |t-tab-st|ops'.").|
|00000d90| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 ac 8f c1 |(byte-co|de "....|
|00000da0| 20 10 c2 08 c3 c4 23 88 | c2 08 c5 c4 23 88 c1 87 | .....#.|....#...|
|00000db0| 22 20 5b 65 64 69 74 2d | 74 61 62 2d 73 74 6f 70 |" [edit-|tab-stop|
|00000dc0| 73 2d 6d 61 70 20 6d 61 | 6b 65 2d 73 70 61 72 73 |s-map ma|ke-spars|
|00000dd0| 65 2d 6b 65 79 6d 61 70 | 20 64 65 66 69 6e 65 2d |e-keymap| define-|
|00000de0| 6b 65 79 20 22 18 13 22 | 20 65 64 69 74 2d 74 61 |key ".."| edit-ta|
|00000df0| 62 2d 73 74 6f 70 73 2d | 6e 6f 74 65 2d 63 68 61 |b-stops-|note-cha|
|00000e00| 6e 67 65 73 20 22 03 03 | 22 5d 20 34 29 0a 28 64 |nges "..|"] 4).(d|
|00000e10| 65 66 76 61 72 20 65 64 | 69 74 2d 74 61 62 2d 73 |efvar ed|it-tab-s|
|00000e20| 74 6f 70 73 2d 62 75 66 | 66 65 72 20 6e 69 6c 20 |tops-buf|fer nil |
|00000e30| 22 5c 0a 42 75 66 66 65 | 72 20 77 68 6f 73 65 20 |"\.Buffe|r whose |
|00000e40| 74 61 62 20 73 74 6f 70 | 73 20 61 72 65 20 62 65 |tab stop|s are be|
|00000e50| 69 6e 67 20 65 64 69 74 | 65 64 2d 2d 69 6e 20 63 |ing edit|ed--in c|
|00000e60| 61 73 65 0a 74 68 65 20 | 76 61 72 69 61 62 6c 65 |ase.the |variable|
|00000e70| 20 60 74 61 62 2d 73 74 | 6f 70 2d 6c 69 73 74 27 | `tab-st|op-list'|
|00000e80| 20 69 73 20 6c 6f 63 61 | 6c 20 69 6e 20 74 68 61 | is loca|l in tha|
|00000e90| 74 20 62 75 66 66 65 72 | 2e 22 29 0a 28 66 73 65 |t buffer|.").(fse|
|00000ea0| 74 20 27 65 64 69 74 2d | 74 61 62 2d 73 74 6f 70 |t 'edit-|tab-stop|
|00000eb0| 73 20 23 5b 6e 69 6c 20 | 22 70 10 c1 c2 c3 21 21 |s #[nil |"p....!!|
|00000ec0| 88 c4 0d 21 88 c6 c7 21 | 88 c8 16 07 c9 ca 21 88 |...!...!|......!.|
|00000ed0| cb 16 0c cd 20 88 0e 0e | 89 1e 0f ab 92 d0 0e 0f |.... ...|........|
|00000ee0| 40 d1 5c 22 88 d2 63 88 | 0e 0f 41 89 16 0f ac 6e |@.\"..c.|..A....n|
|00000ef0| 29 d1 1e 13 d4 63 88 0e | 13 d5 57 ab 91 0e 13 d6 |)....c..|..W.....|
|00000f00| 5c 5c 63 88 d7 63 88 0e | 13 54 89 16 13 aa 6b d4 |\\c..c..|.T....k.|
|00000f10| 63 88 0e 13 d1 56 ab 8b | d8 63 88 0e 13 53 89 16 |c....V..|.c...S..|
|00000f20| 13 aa 71 29 d9 da 21 63 | 88 65 62 87 22 20 5b 65 |..q)..!c|.eb." [e|
|00000f30| 64 69 74 2d 74 61 62 2d | 73 74 6f 70 73 2d 62 75 |dit-tab-|stops-bu|
|00000f40| 66 66 65 72 20 73 77 69 | 74 63 68 2d 74 6f 2d 62 |ffer swi|tch-to-b|
|00000f50| 75 66 66 65 72 20 67 65 | 74 2d 62 75 66 66 65 72 |uffer ge|t-buffer|
|00000f60| 2d 63 72 65 61 74 65 20 | 22 2a 54 61 62 20 53 74 |-create |"*Tab St|
|00000f70| 6f 70 73 2a 22 20 75 73 | 65 2d 6c 6f 63 61 6c 2d |ops*" us|e-local-|
|00000f80| 6d 61 70 20 65 64 69 74 | 2d 74 61 62 2d 73 74 6f |map edit|-tab-sto|
|00000f90| 70 73 2d 6d 61 70 20 6d | 61 6b 65 2d 6c 6f 63 61 |ps-map m|ake-loca|
|00000fa0| 6c 2d 76 61 72 69 61 62 | 6c 65 20 69 6e 64 65 6e |l-variab|le inden|
|00000fb0| 74 2d 74 61 62 73 2d 6d | 6f 64 65 20 6e 69 6c 20 |t-tabs-m|ode nil |
|00000fc0| 6f 76 65 72 77 72 69 74 | 65 2d 6d 6f 64 65 20 31 |overwrit|e-mode 1|
|00000fd0| 20 74 20 74 72 75 6e 63 | 61 74 65 2d 6c 69 6e 65 | t trunc|ate-line|
|00000fe0| 73 20 65 72 61 73 65 2d | 62 75 66 66 65 72 20 74 |s erase-|buffer t|
|00000ff0| 61 62 2d 73 74 6f 70 2d | 6c 69 73 74 20 74 61 62 |ab-stop-|list tab|
|00001000| 73 20 69 6e 64 65 6e 74 | 2d 74 6f 20 30 20 35 38 |s indent|-to 0 58|
|00001010| 20 63 6f 75 6e 74 20 31 | 30 20 38 20 34 38 20 22 | count 1|0 8 48 "|
|00001020| 20 20 20 20 20 20 20 20 | 20 22 20 22 30 31 32 33 |        | " "0123|
|00001030| 34 35 36 37 38 39 22 20 | 73 75 62 73 74 69 74 75 |456789" |substitu|
|00001040| 74 65 2d 63 6f 6d 6d 61 | 6e 64 2d 6b 65 79 73 20 |te-comma|nd-keys |
|00001050| 22 5c 6e 54 6f 20 69 6e | 73 74 61 6c 6c 20 63 68 |"\nTo in|stall ch|
|00001060| 61 6e 67 65 73 2c 20 74 | 79 70 65 20 5c 5c 3c 65 |anges, t|ype \\<e|
|00001070| 64 69 74 2d 74 61 62 2d | 73 74 6f 70 73 2d 6d 61 |dit-tab-|stops-ma|
|00001080| 70 3e 5c 5c 5b 65 64 69 | 74 2d 74 61 62 2d 73 74 |p>\\[edi|t-tab-st|
|00001090| 6f 70 73 2d 6e 6f 74 65 | 2d 63 68 61 6e 67 65 73 |ops-note|-changes|
|000010a0| 5d 22 5d 20 34 20 22 5c | 0a 45 64 69 74 20 74 68 |]"] 4 "\|.Edit th|
|000010b0| 65 20 74 61 62 20 73 74 | 6f 70 73 20 75 73 65 64 |e tab st|ops used|
|000010c0| 20 62 79 20 60 74 61 62 | 2d 74 6f 2d 74 61 62 2d | by `tab|-to-tab-|
|000010d0| 73 74 6f 70 27 2e 0a 43 | 72 65 61 74 65 73 20 61 |stop'..C|reates a|
|000010e0| 20 62 75 66 66 65 72 20 | 2a 54 61 62 20 53 74 6f | buffer |*Tab Sto|
|000010f0| 70 73 2a 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 74 |ps* cont|aining t|
|00001100| 65 78 74 20 64 65 73 63 | 72 69 62 69 6e 67 20 74 |ext desc|ribing t|
|00001110| 68 65 20 74 61 62 20 73 | 74 6f 70 73 2e 0a 41 20 |he tab s|tops..A |
|00001120| 63 6f 6c 6f 6e 20 69 6e | 64 69 63 61 74 65 73 20 |colon in|dicates |
|00001130| 61 20 63 6f 6c 75 6d 6e | 20 77 68 65 72 65 20 74 |a column| where t|
|00001140| 68 65 72 65 20 69 73 20 | 61 20 74 61 62 20 73 74 |here is |a tab st|
|00001150| 6f 70 2e 0a 59 6f 75 20 | 63 61 6e 20 61 64 64 20 |op..You |can add |
|00001160| 6f 72 20 72 65 6d 6f 76 | 65 20 63 6f 6c 6f 6e 73 |or remov|e colons|
|00001170| 20 61 6e 64 20 74 68 65 | 6e 20 64 6f 20 5c 5c 3c | and the|n do \\<|
|00001180| 65 64 69 74 2d 74 61 62 | 2d 73 74 6f 70 73 2d 6d |edit-tab|-stops-m|
|00001190| 61 70 3e 5c 5c 5b 65 64 | 69 74 2d 74 61 62 2d 73 |ap>\\[ed|it-tab-s|
|000011a0| 74 6f 70 73 2d 6e 6f 74 | 65 2d 63 68 61 6e 67 65 |tops-not|e-change|
|000011b0| 73 5d 20 74 6f 20 6d 61 | 6b 65 20 63 68 61 6e 67 |s] to ma|ke chang|
|000011c0| 65 73 20 74 61 6b 65 20 | 65 66 66 65 63 74 2e 22 |es take |effect."|
|000011d0| 20 6e 69 6c 5d 29 0a 28 | 66 73 65 74 20 27 65 64 | nil]).(|fset 'ed|
|000011e0| 69 74 2d 74 61 62 2d 73 | 74 6f 70 73 2d 6e 6f 74 |it-tab-s|tops-not|
|000011f0| 65 2d 63 68 61 6e 67 65 | 73 20 23 5b 6e 69 6c 20 |e-change|s #[nil |
|00001200| 22 c0 19 8a c2 62 88 c0 | 7f 88 c3 c4 c0 c5 23 ab |"....b..|......#.|
|00001210| 86 69 09 42 11 aa 73 29 | c6 70 c7 0e 08 21 88 21 |.i.B..s)|.p...!.!|
|00001220| 88 09 16 09 29 ca cb 21 | 87 22 20 5b 6e 69 6c 20 |....)..!|." [nil |
|00001230| 74 61 62 73 20 31 20 73 | 65 61 72 63 68 2d 62 61 |tabs 1 s|earch-ba|
|00001240| 63 6b 77 61 72 64 20 22 | 3a 22 20 74 20 62 75 72 |ckward "|:" t bur|
|00001250| 79 2d 62 75 66 66 65 72 | 20 73 77 69 74 63 68 2d |y-buffer| switch-|
|00001260| 74 6f 2d 62 75 66 66 65 | 72 20 65 64 69 74 2d 74 |to-buffe|r edit-t|
|00001270| 61 62 2d 73 74 6f 70 73 | 2d 62 75 66 66 65 72 20 |ab-stops|-buffer |
|00001280| 74 61 62 2d 73 74 6f 70 | 2d 6c 69 73 74 20 6d 65 |tab-stop|-list me|
|00001290| 73 73 61 67 65 20 22 54 | 61 62 20 73 74 6f 70 73 |ssage "T|ab stops|
|000012a0| 20 69 6e 73 74 61 6c 6c | 65 64 22 5d 20 34 20 22 | install|ed"] 4 "|
|000012b0| 5c 0a 50 75 74 20 65 64 | 69 74 65 64 20 74 61 62 |\.Put ed|ited tab|
|000012c0| 20 73 74 6f 70 73 20 69 | 6e 74 6f 20 65 66 66 65 | stops i|nto effe|
|000012d0| 63 74 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ct." nil|]).(fset|
|000012e0| 20 27 74 61 62 2d 74 6f | 2d 74 61 62 2d 73 74 6f | 'tab-to|-tab-sto|
|000012f0| 70 20 23 5b 6e 69 6c 20 | 22 08 ab 83 c1 20 88 5c |p #[nil |".... .\|
|00001300| 6e 89 1b ab 8c 69 0b 40 | 59 ab 86 0b 41 89 13 ac |n....i.@|Y...A...|
|00001310| 74 0b ab 90 60 1c c5 c6 | 78 88 60 0c 7c 88 0b 40 |t...`...|x.`.|..@|
|00001320| 6a 29 aa 82 c7 63 29 87 | 22 20 5b 61 62 62 72 65 |j)...c).|" [abbre|
|00001330| 76 2d 6d 6f 64 65 20 65 | 78 70 61 6e 64 2d 61 62 |v-mode e|xpand-ab|
|00001340| 62 72 65 76 20 74 61 62 | 2d 73 74 6f 70 2d 6c 69 |brev tab|-stop-li|
|00001350| 73 74 20 74 61 62 73 20 | 6f 70 6f 69 6e 74 20 22 |st tabs |opoint "|
|00001360| 20 09 22 20 6e 69 6c 20 | 33 32 5d 20 33 20 22 5c | ." nil |32] 3 "\|
|00001370| 0a 49 6e 73 65 72 74 20 | 73 70 61 63 65 73 20 6f |.Insert |spaces o|
|00001380| 72 20 74 61 62 73 20 74 | 6f 20 6e 65 78 74 20 64 |r tabs t|o next d|
|00001390| 65 66 69 6e 65 64 20 74 | 61 62 2d 73 74 6f 70 20 |efined t|ab-stop |
|000013a0| 63 6f 6c 75 6d 6e 2e 0a | 54 68 65 20 76 61 72 69 |column..|The vari|
|000013b0| 61 62 6c 65 20 60 74 61 | 62 2d 73 74 6f 70 2d 6c |able `ta|b-stop-l|
|000013c0| 69 73 74 27 20 69 73 20 | 61 20 6c 69 73 74 20 6f |ist' is |a list o|
|000013d0| 66 20 63 6f 6c 75 6d 6e | 73 20 61 74 20 77 68 69 |f column|s at whi|
|000013e0| 63 68 20 74 68 65 72 65 | 20 61 72 65 20 74 61 62 |ch there| are tab|
|000013f0| 20 73 74 6f 70 73 2e 0a | 55 73 65 20 5c 5c 5b 65 | stops..|Use \\[e|
|00001400| 64 69 74 2d 74 61 62 2d | 73 74 6f 70 73 5d 20 74 |dit-tab-|stops] t|
|00001410| 6f 20 65 64 69 74 20 74 | 68 65 6d 20 69 6e 74 65 |o edit t|hem inte|
|00001420| 72 61 63 74 69 76 65 6c | 79 2e 22 20 6e 69 6c 5d |ractivel|y." nil]|
|00001430| 29 0a 28 66 73 65 74 20 | 27 6d 6f 76 65 2d 74 6f |).(fset |'move-to|
|00001440| 2d 74 61 62 2d 73 74 6f | 70 20 23 5b 6e 69 6c 20 |-tab-sto|p #[nil |
|00001450| 22 08 89 19 ab 8c 69 09 | 40 59 ab 86 09 41 89 11 |".....i.|@Y...A..|
|00001460| ac 74 09 ad b4 60 1a c3 | 09 40 c4 5c 22 88 8a 5c |.t...`..|.@.\"..\|
|00001470| 6e 62 88 68 c5 3d ad a2 | 67 c6 3d ad 9d 69 0e 07 |nb.h.=..|g.=..i..|
|00001480| a5 0e 07 5f 1e 08 69 0e | 08 56 ab 8a 68 c5 3d ab |..._..i.|.V..h.=.|
|00001490| 85 c9 75 88 aa 70 60 5c | 6e 7c 29 2a 29 87 22 20 |..u..p`\|n|)*)." |
|000014a0| 5b 74 61 62 2d 73 74 6f | 70 2d 6c 69 73 74 20 74 |[tab-sto|p-list t|
|000014b0| 61 62 73 20 62 65 66 6f | 72 65 20 6d 6f 76 65 2d |abs befo|re move-|
|000014c0| 74 6f 2d 63 6f 6c 75 6d | 6e 20 74 20 33 32 20 39 |to-colum|n t 32 9|
|000014d0| 20 74 61 62 2d 77 69 64 | 74 68 20 74 61 62 65 6e | tab-wid|th taben|
|000014e0| 64 20 2d 31 5d 20 34 20 | 22 5c 0a 4d 6f 76 65 20 |d -1] 4 |"\.Move |
|000014f0| 70 6f 69 6e 74 20 74 6f | 20 6e 65 78 74 20 64 65 |point to| next de|
|00001500| 66 69 6e 65 64 20 74 61 | 62 2d 73 74 6f 70 20 63 |fined ta|b-stop c|
|00001510| 6f 6c 75 6d 6e 2e 0a 54 | 68 65 20 76 61 72 69 61 |olumn..T|he varia|
|00001520| 62 6c 65 20 60 74 61 62 | 2d 73 74 6f 70 2d 6c 69 |ble `tab|-stop-li|
|00001530| 73 74 27 20 69 73 20 61 | 20 6c 69 73 74 20 6f 66 |st' is a| list of|
|00001540| 20 63 6f 6c 75 6d 6e 73 | 20 61 74 20 77 68 69 63 | columns| at whic|
|00001550| 68 20 74 68 65 72 65 20 | 61 72 65 20 74 61 62 20 |h there |are tab |
|00001560| 73 74 6f 70 73 2e 0a 55 | 73 65 20 5c 5c 5b 65 64 |stops..U|se \\[ed|
|00001570| 69 74 2d 74 61 62 2d 73 | 74 6f 70 73 5d 20 74 6f |it-tab-s|tops] to|
|00001580| 20 65 64 69 74 20 74 68 | 65 6d 20 69 6e 74 65 72 | edit th|em inter|
|00001590| 61 63 74 69 76 65 6c 79 | 2e 22 20 6e 69 6c 5d 29 |actively|." nil])|
|000015a0| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+